home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 426-450 / disk_431 / advtemplates / unpackdisk < prev    next >
Text File  |  1992-05-06  |  848b  |  32 lines
  1. .K ""
  2. echo "This script will unpack the following lharc archives:"
  3. echo ""
  4. echo "  AdvTemplates.lzh =>  AdvTemplates:"
  5. echo "  Law.lzh          =>  AdvTemplates:"
  6. echo "  Business.lzh     =>  AdvTemplates:"
  7. echo ""
  8.  
  9. ask "Do you have a blank disk ready?"
  10. if not WARN
  11.     echo "Try again when you do ..."
  12.     echo "All Done.  Click close gadget to get rid of window."
  13.     endcli
  14. endif
  15.  
  16. ask "Is floppy drive df1: free?"
  17. if not WARN
  18.     echo "You will need to do the unpacking yourself."
  19.     echo "All Done.  Click close gadget to get rid of window."
  20.     endcli
  21. endif
  22.  
  23. echo "Formatting and unpacking disk."
  24.  
  25. sys:system/format drive df1: name AdvTemplates noicons
  26. :c/lharc -x -a -m x AdvTemplates.lzh AdvTemplates:
  27. :c/lharc -x -a -m x Law.lzh AdvTemplates:
  28. :c/lharc -x -a -m x Business.lzh AdvTemplates:
  29.  
  30. echo "All Done.  Click close gadget to get rid of window."
  31. endcli
  32.